December 1972 


B72- 10750 


NASA TECH BRIEF 

Manned Spacecraft Center 



NASA Tech Briefs announce new technology derived from the U.S. space program. They are issued to encourage 
commercial application. Tech Briefs are available on a subscription basis from the National Technical Information 
Service, Springfield, Virginia 22151. Requests for individual copies or questions relating to the Tech Brief program may 
be directed to the Technology Utilization Office, NASA, Code KT, Washington, D.C. 20546. 


FORTRAN Read Package 




The problem: 

The lack of a flexible input scheme in many large 
digital programs becomes a problem to both program 
users and programmers. Many input schemes require 
card formats, a fixed card order, or a specific number 
of cards. These requirements make program usage 
cumbersome and error prone. 

The solution: 

A read package has been developed which offers the 
following advantages. No card format or special order 
of cards are required. The package is controlled by a 
small set of parameters which can be changed to account 
for differences in computers and digital programs. 

How it’s done: 

The parameter location in COMMON is used to 
identify the parameter. This location number is placed 
anywhere in the first five columns on the data card. The 
value of the parameter is placed anywhere on the rest 
of the card and followed by an asterisk. Sequential 
locations may be defmed on the same card. The read 


package determines what type of parameter is being 
defined and automatically differentiates among integer, 
real, octal, or Hollerith inputs. 

Notes: 

1* This program is written in FORTRAN IV for use on 
the CDC-6400 computer. However, with the proper 
job control language, the program can be run on any 
computer which uses a FORTRAN IV or higher 
compiler 

2. Inquiries concerning this program should be directed 
to: 

COSMIC 
1 12 Barrow Hall 
University of Georgia 
Athens, Georgia 30601 
Reference: MSC-14161 

Source: Dennis P. Diekelman of 
McDonnell Douglas Corp. 

under contract to 
Manned Spacecraft Center 
(MSC-14161) 
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